





Continuamos à disposição dos leitores para publicarmos 
os bons programas originais que nos queiram enviar. Se 
se julga capaz de desenhar um bom programa original, 
tão bom ou melhor do que aqueles que publicamos neste 
número de «Jogos Sortidos», não hesite: escreva-nas e 
envie-nos a sua produção. É importante que o programa 
venha gravado em cassete com indicação do tipo e 
capacidade do computador que utilizou. Importante, 
também, é que o faça acompanhar de uma discrição geral 
do programa, de modo a permitir-nos ensaiá-lo. Mãos à 
obra. . 











ENVIE-NOS OS SEUS PROGRAMAS ORIGINAIS 
E GANHE PRÉMIOS 


Colabore connosco, enviando-nos o seu programa original, do seguinte modo: 


1. Nome, morada, idade e n.º de telefone. 
2. O programa de preferência em cassette, indicando o tipo e a capacidade do computador. 
3. Uma descrição geral do jogo com as instruções .necessárias. 
4. Uma explicação detalhada da função das várias partes do programa. 


Para: JOGOS SORTIDOS - Rua Duque de Palmela, 37, 2.º-Dto. — 1200 LISBOA 
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Desta vez, temos um autêntico jogo de dominó para 
consumir uma boa parte dos seus tempos livres. Dado 
que não podemos enviar-lhe as pedras do dominó, 
oferecemos-lhe a reprodução delas no écran do seu 
Spectrum 48 K. 

Para começar teremos apenas que introduzir alguns 
dados: o número de jogadores e das partidas que que- 
remos jogar. Os resultados serão dados no final de 
cada partida. 


3 G0 TO 5000 
12 DATA 0,0,18,0,36,0,54,0,72, 
2,90,0,105 82,117,-8,108,-27,90,- 
27, 7Ê ,=D?,94,-27,95,-97,18,-27,0 
,-27,-18,-27,-36,-27,-54,-27,-72 
1-27,-90,-27,-108,-27,-108,-9,-1 
08,0, -S0,0,-?2,0,"s4,0,-35,0,18 
+ 
l14'DIM a(28,2): FOR n=1 TO 28: 
READ ain,1): READ a(n,2): NEXT 
n: RETURN 
ee FOR z=1 TO 9: PLOT 16%*n-7-Z 
,173: DRAW 2,-18: NEXT Z: RETURN 
32 PLOT 16%n-7,44 
33 DRAW Q,-9: DRAW -S9,0: DRAW 
2,18: DRAW 9,0: DRAW 0,-9: DRAW 
-8.Q: RETURN ; 
42 PLOT x+a (n,1) ,y+ain,2): DRA 
WU 9,90. DRAU 0,9: DRAW -18,0: DRA 
PAR DRAU 9,0: DRAW 0,8: RETU 
59 RETURN 
SS PLOT r-d,s+4: GO SUB 85: RE 
TURN 
60 PLOT r-5,5+2: GO SUB 85: PL 
OT c-2,5+6: GQ SUB 85: RETURN 
N 65 GÔ SUB 55: GO SUB 60: RETUR 
70 GO SUB 60: PLOT r-2,5+2: GO 
SUB 85: PLOT r-6,5+6: GO SUB 85 
: RETURN 
N 75 GO SUB 70: GO SUB 5S: RETUR 
8a FOR z=-1 TO -7 STEP -3: PLO 
T r+z,8S+2: 60 SUB 85: PLOT r+z,5 
+68: GO SUB 85: ExT z: RETURN 
81 FOR z=1 TO 7 STEP 3: PLOT Fr 
-2,8+z: GO SUB 85: PLOT r-6,s+z 
GO SUB 85: NEXT z: RETURN 
SS DRAW -1,0: DRAU 0,1: DRAW 1 
+12: RETURN 
FOR n=1 TO (LEN RS e Fo 
Rm=1 TO (LEN 5g-3) 5 
3S2 IF NT sao RALI PO ER VE MAE 
im+3) THEN GO TO 360 
S4 IF =g(m) +5$(m+1) «eg im+2) +55 
m+3) AND m=1 THEN LET Es s$(m+2 
TO m+3) +s&(im TO m+1) +s$im+4 TO 
à Go TO 364 
356 IF sg(m) +sg(m+1)<sG(m+2) +55 
im+3) AND m=LEN' s$&-3 THEN LET sã 
» =£$t TO m-1)+5$M+2 TO m+3) +55 (m 
TO m+1): GO TO 360 
358 IF sE(m)+5G(M+1) <s$im+2) +55 
im+3) THEN LET sg=s8( TO m-1)+55 
Eat TO m+3) +5g(m TO m+1) +5 & (m+d 
1 
360 NEXT m: NEXT n 
364 RETURN Rbd» 
401 IF ff=1 THEN LET j$=j$(3 TO 
3: RETURN 


$=;$( TO ffs2-2): TURN 
403 LET ida EU TO FF$*2-D) +J$CFF 
*2+1 TO D: RN 


is Ee E 4 pe LET sg=s$g(3 TO 


J: 
418 IF m=(LEN da ia LEE Ss 
=5$8( TO m+2-2): RETU 

414 LET sg=5$( TO asa -2)+sg(mã2 
+1 TO ): RETURN: 

S00 IF scha=8 OR dcha=22 THEN P 


LOT x+atdcha,1),4-9: GO SUB 35: 
Go TO sim 

SOS LET n=dcha: GO SUB 42 

S10 LET r=x+atdcha,1): LET s=y+ 
atdcha,2) 
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DOMINÓ 


Se, num dado momento, ficarmos sem pedras para 
jogar, bastará introduzir o e, do monte, virão todas 
as que precisarmos. 

Se já não houver mais pedras no monte, terá que ceder 
a sua vez a outro jogador. 

É fácil de comprovar que se trata: de um dominó com 
«todos os ingredientes»; mas tem ainda todas as van- 
tágens e a comodidade do seu Spectrum. 

Alerta, campeões! 


515 IF dcha<8 OR dcha>22 THEN G 
O SUB S0+Ssder: LET r=r+9: GO SU 
B SO+Sxizq: LET vd=izq: RETURN 
Sao IF dcha=8 THEN GO SUB 50+5+ 
der+(il AND der=6): LET s=s-9: Go 
alo So+5zizq+(1 AND izq=5: LET 
vd=izq: RETURN 
S2S IF dcha>S8 AND dcha<2a THEN 
GO SUB SO+Szizq: LET r=r+9: GO 5 
UB 5O0+Stder: LET vd=izq: RETURN 
S30 IF dcha=22 THEN GO SUB 50+5 
xizq+(1 AND izq=6): LET s=5-9: G 
OD SUB SO+5Szder+(1 AND der=68): LE 
T vd=izaq: REU URN 








535 RETUR 

550 IF eua=e OR izda=22 THEN P 
LOT x+atizda,1),9-9: GO SUB 33: 
Eq TO sea 

SS5 LET n=izda: GO SUB 42 

S60 LET r=x+a(tizda,1):- LET s=y+ 
atizda,a) 

6S IF izda<8 OR izdav2e THEN 6 
D SUB SO+Ssder: LET c=r+9: GO SU 
B SO+5xizq: LET vi=der: RETURN 
570 IF izds=8 THEN GO SUB 50+5+ 
der+(1 AND der=5): LET s=s-9: GQ 
SUB SO+Sxizq+t1 AND izq=6]: LET 
vi=der RETURN 

575 IF izda>8 AND izda<e2 THEN 
GO SUB SO+Sxizq: LET r=r+9: G0 5 
UB SO+Ssder: LET wi=der: RETURN 
s8o IF izda=22 THEN GO SUB S0+5 
xizq+(1 AND izq=6): LET s=s-9: G 
o sus SorSzde rá ti AND der=61: LE 
T vi=der: RETURN 

585 RETURN 

sao POKE nest seo: PAPER 4: BO 
RDER 1: INK BG: 

5005 PRINT AT io; io; INVERSE 1; 
dd 1;"PARE LA CINTA": PAUSE 1 
5009 LET part=B: LET x=128: LET 
nd LET ss=Q0: LET gas=0: LET 
gaiz 

5022 LET pass=0: LET pasj=o 

5024 PRINT AT 10,2; BRIGHT 1;"ES 
TOY REPARTIENDO LAS FICHAS” 
S026 LET F$="6665646362616055545 
a RM O 
5228 FOR n=1 TO 200: LET m=INT ( 
RND+281] 4+2+1. LET fã=f$g(m TO m+1 
+F$C TO m-1D) +F$E(M+2 TO 1: NEXT hn 
5030 LET j$=Fg( TO 14): LET sg=f 
$(1S5 TO 28): LET f$=fã(29 TO ) 
5031 IF part=0 THEN INPUT “A CUA 
NTAS PARTIDAS VAMOS? treco 
miendo 5) “;partidas 
S040 RESTORE : GO SUB 12: GO SUB 
350: RR 
S1200 FOR =1 TO 7: LET uy=68: GO 


Sus 20: Bo SUB 30: PRINT AT 16, 


2+ am 

5110 LET r=164n-7: LET s=60: GO 

5UB 50+5+ (VAL jg(24n-11)+(1 AND 
VAL J$(2$n-1)=6) 

5120 LET s=5-Q: GO SUB 50+5+ (VAL 
j$(220)15(1 AND VAL jg(Zan) =6); 

5130 NEXT n 

5140 LET dcha=1: LET izda=28: LE 

T vd=0: LET vi=0: IF ss=1 THEN G 

To saza 

28 INPUT “QUE FICHA JUEGAS? ", 

ERES CITE Prq OR PrSTOTHEN CO TUUS 


200 

Sea POR z=1 TO 9: INK 4: PLOT 1 
Exff-7-z,69: DRAW Q,-18: NEXT Z: 
INK q 


o 


5204 LET n=1: GO SUB 42: LET r=x 
+a (n,1): LET s=y+a(n,2): GO SUB 
SO+SÉTUAL Jg (B+ff-1)): LET vi=(u 
AL j$(2xFr51)) + 

5206 LET r=r+9: GO SUB $0+5% (VAL 
pisterf to) o LET va=íVAL SstBsrr) 
S205 GO SUB 400: LET dcha=2 
Sãi2 FOR n=13 TO 18: FOR a=e TO 
1: PRINT AT mig; “: NEXT q: NE 
> m 

S214 FOR n=1 TO (LEN $$)/2: LET 
quz60: 60 SUB So: PRINT AT 16,24 
Ex 

S216 LET c=16%n-7: LET ==60: Go 
SUB SG+5+(VAL j$(nsE-11)+t1 AND 
VAL j$(n42-1)=6): LET s==-5: GO 


SUB SO+5S+* (VAL jG$(n42)) 
seis NEXT n: GO TO 6000 
S220 PRINT HO; " JUEGO vo E 


: "PAUSE SQ 
Saz2 LET n=7: INK 4: GO SUB 22: 
GO SUB 42: LET r=x 
S=y+a(n;2): GO SUB 
: LET vi=VAL sg( 
SUE SO+S+VAL s 


s$(2) 
Fte3 TO J: 





E LET dcha= 
5300 INPUT nat FICHA JUEGAS? da 
-pasas) "; Ff: LET ag="": IF ffs= 


THEN Go To 5500 
Edo FF>(LEN $$)/2 THEN GO TO 


5310 LET w=VAL jJ$(Ffs2-1): LET q 

u=VAL j$tFf+o) 

5315 IF va<>w AND vi<>w AND vd<> 

ww AND vis>wuwu THEN PRINT BO; "ESA 
NO PUEDES JUGARLA": PAUSE 100: 


GO TO 5300 
5320 IF w=vd AND wuw=vi. AND w<>ww 
“THEN. INPUT Es “A COLOCAS? 
é ; RE = OR a$='D" 
THEN LET der=uw: Pero izq=ww: GO 5 
uB so D s400 
OR ag='"'1" THEN LE 
T der=w: LET izq=uw: SO SUB SSQO: 








5330 IF w=vi AND wy=vd AND w<>wmw 
THEN INPUT “BONDE LA COLÔCAS? 
DTD e O mim: ag='d" OR ag="D" T 
BEN LES dêr=uw; LET izq=w: GO SU 

B 590: GU TO Sáco 
fetelele “e ag="i" OR ag="'I" THEN LE 
o do” : LET der=wuw: GO SUB SSQ: 

O sália 

sõão IF w=vd THEN LET der=w: LET 


izq=ww: GO SUB SOB: GO TO S400 
5345 IF wuwuzwd THEN LET der=wuu: L 
ET izq=w: GO SUB S0g: GO TO saoa 
350 IF w=vi THEN LET iza=u 
C=uw: GO SUB SSQ: G0 TO sao" 
TE ww=vi THEN LET izq=wu: L 
=w: GO SUB SSO: GO TO S410 
LET dch cha+1l: GO TO 5420 
LET izdazizda- 


s 
de 
a 
a 
2 GO SUB 400 
Q LET pass=0: IF LEN ;$=0 a 
E LET 'ss8=2: GO 


Ex gaj=gajg+1: 
Q FOR 0=0 TO 31: PRINT AT EEo 
“ur LTAB SL; 0 vi TAB 515º Ci 

“. NEXT o: , 

FOR n=1 TO (LEN j$):2: LET 

: GO SUB 32: PRINT. AT 16,2% 


T r=16*n-7: LET s=60: Go 


S+UAL J$(Ng2-1) +11 AND UA 
2-1)=6): LET 5=s-9: 60 SU 
VAL j$ins2)+(12 AND VAL js 
J: NEXT n 
TO Gado 

m=1 TO LEN jg: IF va=VA 
OR v1 SUA dg (mi THEN. PRI 
FLASH 1; FASA : 
PAUSE 100: GO TO soa 


SS2Q IF LEN F$=Q THEN GO TO sega 
ROBAS UNA FICHA" 


aa 
prRRAúaA 





zUntam 


e 
5 
a 
2 
1] 
4 
+ 
3 
s 





was 
39 


nOUNIS Dr - 


MILANO 
CrpIiCÊe-pm 
-0Q0U+ ++ m 


aa o pu q 


e. 
did 
s 


nea 
sO0nSa 

ed mil 
mn 





Z"nU-mrWw 


E 
s 
9 





5535 LET Jg=48+FE( TO 2): LET Fg 
=t$13 TO 1 É 
5544 LET uy=60: FOR n=1 TO (LEN 


Go SUB 32: PRINT AT 16,n+ 


E-2;n 

5545 LET r=16%n-7: LET 5=E0: GO 
SUB SQ+S+ (VAL jsg(24n-1))+(1 AND 
VAL jgtZan-1)=6): LET s=5S1: GO 5 


DOMINÓ 





UB SBO+S+VAL Jg(ZEN)+(I AND VAL q 
Rede 

D48 NEXT n 

Sss60 GO TO 5300 

S600 LET pasj=l: PRINT Be;aT 2,0 
A PLASH LP AS AS: PRÚSE Só 
&616 IF Pass=1 THEN GÔ TO 350 
6000 FOR m=1 TO ILEN <=g)/2 

GQ12 IF vi=UAL csgima2) THEN LET 
iZq=UAL sg(m+2): LET der=UAL sgi 
m 11: 50 SUB SEQ LET izdaziza 
3-1: GO TO Guea 

6020 IF vi=UAL sgim4Z-i: THEN LE 
T izq=VAL sgims2-11: LET der=UAL 
EG ims2): GO SUB SSO: LET izdazi 
zda-l: GO TO 6260 

6030 IF vd=UAL sg(m$Z) THEN LET 
iZq=VAL sgimeS-1) LET falei =UAL = 
$(m+2): GO SUE S90: LET dcha=dckh 
a+1: GO TO 60 

6o4a IF vAd=UAL =$im$2-1! THEN LE 
T a O 21: LET der=VAL s 
g&(m+2-1): G EB 50d: LET dchazd 
Cha+1l: GO TO sa 

6045 NEXT m 

6254 GO TO & 

£$)/72: INK 4: GO 


ana LET Ee 


UVAS +HFIFOMS mAzZCAMDnO min 


“DSO FOOD ZOO Cx O 


















siao Esa TO 53 
6200 IF LEN F 
T 2,0; FLASH 
E SO: co TO 6 
6210 PRINT HQ 
ICHA": LET sg 
fFg=FE(3 TO 1 
6220 LET n=tLEN 
6230 LET m 3 
) THEN INK 4: G 
G0 TO 6220 
6235 IF vd=VAL s$ 
4: GO SUB 22: INK 
6240 IF vd=VAL sg 
5 4: GO SUB 22: IT 
6245 IF vi=UAL sg(m42) THEN INK 
4: GO SUB 322: INK Q: GO TO 6014 
6250 GO TO 520a 
6300 PRINT &Q; FLASH 1,"YD... pe 
Sto 1 PRE dera 
Bs iz HEN Ga TO 6350 
6526 60 fô ds 
6350 FOR 0=1 SQ: NEXT q 
6351 LET cont =2. = 
EE E E 
3 FOR 0=1 TO LEN 8%: LET cont 
SPp=CONtsp+UAL sg(o NEXT q 
6354 FOR 0=1 TO LEN j$: L 
U=contju+VAL igto NEXT 
356 PRINT AT 17,0; "PUNTO 
UM: “;contsp: PRI *s“P 
UGADOR: “;contyju: UN SS 
OR PARTIDA: “+ ("SPECTRUM" AND co 
ntsp<contju) + ("EMPATE AND cants 
P=contju) +(“TU” AND contsp>contj 
uv): PAUSE 300 
6358 IF contsp:>contáu THEN LET p 
art=part+1: LET 9a j=934+1: FALISE 
120: GO TO 6370 
6360 IF contju>contep THEN LET Pp 
art=part+1: LET gas=gas+1: GO TO 
- 6370 
6362 LET part=part+1 
Ea RR: SERRA AT 8,8;"R E SU 
<par 
LTRU 
UGAD 
RINT 
art< 
ss= 
THE! 
SPE 
ANE E 
daz T 
= 5 











27 


O FORASTEIRO 





Nem só os terrestres se perdem no caminho e sentem 
necessidade de telefonar à família para informar que 
tudo vai bem! 

Este seu amigo que veio das profundezas do Infinito, 
está em grandes dificuldades e precisa urgentemente 
de telefonar à família d'além-espaço, para que o venham 
buscar. 

A sua ajuda será preciosa se conseguir guiar os tele- 
fones que, continuamente, descem dos céus (OVNiIfo- 
nes?), para dentro da cabeça desse extra-terrestre que 
lhe caiu em casa. Não se trata de lhe introduzir um 
cérebro-fone na caixa craniana mas apenas fornecer-lhe 


1º REM JRIEIEIEIEIEICICEIEIEIEIEIEIEIEIEIEIEI 
*Underlined characters 
xare entered in > x 
X*GRAPHICS mode. * 
EIEEIEIEIE EI IEIEIE IEEE IE IEEE 


a 


3 BORDER 9: PAPER O: INK 6: C 
LS 

4 G0 SUB soda 

24 RANDOMIZE : CLS 

25 BORDER 9: PAPER GO: INK 6 

35 PRINT AT 5,153; FLASH 15" AL 
IEN " E 

46" INK 6: PRINT PRINT INVER 
SE 1;"S"; INVERSE 0; "AVE THE ALI 
EN BY LANDING YOUR TELEPHONE Q 
N HIS HEAD E.G. "EE? BEWARE YOU 
ONLY HAVE 1 GO AND HE MIGHT NO 


T NOTICE THE PHONE THEN. PRESS 
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os meios para que ele possa contactar o seu planeta 
(imagina quanto é que a companhia dos telefones lhe 
vai cobrar por uma chamada inter-galáctica?). 

Depois de cada tentativa, seja ela bem sucedida ou 
não, o jogador dispõe da opção de voltar a jogar ime- 
diatamente, (e que impaciente que está o seu amigo!) 
ou ver os gráficos do fim do jogo. 

Para aqueles que são mais lentos há um “não desligue, 
por favor” (Hold The phone) que abranda o ritmo do 
jogo. As instruções, curtas mas completas, são dadas 
no programa escrito por Nicholas Pearson. 


s TO PLAY CONTROLS A 
RE 8 RIGHT AND 5 LEFT” 

45 PRINT PRINT 5 FLASH 15 IM 
VERSE 1;" YOU CAN HAVE THE “HOLD 


THE LINE FEATURE EY 
"THIS 
E PHONE 


PRESSING *h 
SLOWS THE DECENT OF TH 
DOWN 
"5 FLASH 9; INVERSE 9; 

59 BORDER 9: PAPER 8: INK é 

55 FOR a=9 TO 29 

68 PRINT AT 21,a; "E" 

65 INK 4: PRINT AT G,as "E" 

78 INK 4: PRINT AT 21,9;"E" 

75 PRINT AT 17,9; "EE";AT 18,a; 
"BB";AT 19,a; "CD" 

77- IF INKEYS="S" 
THEN 60 TO &2 

89 NEXT. a 

Bi SD To 25 


OR INKEYg="s" 


O FORASTEIRO 


8Z CLS : BORDER 6: PAPER 5: IM 
Kg 

83 PRINT 5; INVERSE 1;AT 4,9;" 
BEWARE THE 'X%" IF YOU TOUCH IT 
YOU LOOSE. DON'T WORRY IF YOU 
RUB THEM OUT. | 

84 PRINT : PRINT " YOU ARE ABO 
UT TO START PREPARE!" 

89 PAUSE 259 

9% BORDER GO: PAPER 9: INK ó 
191 CLS 

195 REM 

196 REM XXX GAME XX 

119 REM XXX MOVEMENT XX 

128 REM 

139 LET »=INT (RNDX20)+1 

149 LET a=1: LET b=1 

156 FOR w=0 TO é 

160 LET d=INT (RNDXZ)+8 

178 LET C=INT (RND%29)+1 

189 PRINT AT d,c;"x” 

196 NEXT w 

208 PAUSE 194 

209 LET s=9.2 

211 FOR 9=6 TO 29 
“214 LET a=ati: LET b=bt1 

215 LET x=x-(INKEYS="5" AND x>9 
J+(INKEYS=" AND x<19) « 

225 IF INKEY$="h" THEN LET s=s 








O LET v=b 
IF b=i8 THEN GO TO -350 
IF SCREENS (v,x)="%" THEN 
co TO 389 
238 IF SCREENS (b,x+1)="%" THEN 
Go TO seg 


240 BEEP s,b+!: PRINT AT v,x5"T 


PRN O! 
AU 
eu 


"5AT boxtisPUMPaT b-Loxj" o MGAT 
Dies isa = eeigo o am 

245 LET 5=9.93 

258 PRINT AT 16,295" "SAT. 17,2 
PR” MEAT Le,2ppr 

269 PRINT ÀT 16,a;"EE";AT ló,a- 
15! "FAT 17,az"BBrjaT 12,a-dyM 
FAT 18,a;"C"r;AT 18,a+1l;"D';AT 18 





actor 


276 PRINT AT 290,15; IMNVERSE 15" 
HOME FINE RS INVERSE q 

286 PLOT G,20: DRAW 255,0 

296 IF b=1ló AND a=» THEM GO TO 
3160 ” 

3dd Go TO 209 ' 

316 INK 5: PRINT HO; INVERSE 1; 
You HAVE womM DO You waNT TQ 
START THE GAME IMMEDIATELY(Y/M 
"5 INVERSE q 

IJ20 LET 'Ln=9306: GO TO 509 


359 INK 5: PRINT HO; INVERSE 1 
”" YOU HAVE LOST DO YOU WISH TG 
IMMEDIATEL'Y START AGAIN (yin 
)"i INVERSE 6 i E 
69 LET Lr=Cóo0g: GO TO São 
O PAUSE 100: GO TO 9500 
J86 INK E: PRINT BO; INVERSE 1 
" YOU BLEW UP THE PHONE DO You 
WANT TO START THE GAME AGAIN 
IMMEDIATELY WITH A NEW PHONE 
"; INVERSE q 
390 LET Ln=9675 
SOg LET ZE=INKEYS 
S1G IF Z$="," OR Z$="7" THEN 6 
o TO z4 
S20 IF Z8<>"n” AND Z8(2"N" THEN 
Go TO saga | 
536 CLS : GO TQ Lp 
8997 REM 
8998 REM * LISER DEFINED GRAFHICS 
8999 REM : 
Sgga RESTORE 
9862 FOR i=USR "A" TO USR "F!+47 
9gM3 READ v: POKE i,v: NEXT i 
9915 DATA EIN G0999111,BIN Gggoa 
G11L,BIN GOG11111,BIM GIL11111,BI 
N G1111111,BIN G119G111,BIN GI1O 
1111,BIN G1191111 
9928 DATA BIN 11199909, BIN 11999 
G09,BIN 11111999,EIM 11111119,EI1 
N 11111119, BIN 11119119,BIN 1114 
G119,BIN 11199119 
9925 DATA BIN 11191111,BIN 11191 


111,BIN 91191111,BIM 99911111,BI 
N 90911111,BIN G0011090, BIN 99011 


190, BIN 9111099 

9030 DATA BIN 1111GLII,BIN 11119 
111,BIN 11119119,BIN 111119909,BI 
N 11111999, BIN 90011000, BIN GO11 
99, BIN GOBLLGA 

9932 DATA BIN OOG11111,BIN GO111 
111, BIN 01111111,BIN 11199111,BI 
N 111906116, BIN 11111901, BIN 0001 
1196, BIN GAGOL111 l 

9033 DATA BIN 11119000,BIN 11111 
GO, BIN 11111110,BIM 11109111,BI 
N 91100111,BIMN 190011111,BIN 1111 
1100, BIN 11110090 

Pgs4 FOR B=USR "T"º TO USR."U!+2: 
READ v: POKE B,v: MEXT B 

9935 DATA EIb GOGADODA, BIM OOLIL 
111,BIM G0111111,BIM GOLIGOLL, BI 


A 





'N GG110G11, RIM GOOOLLLL, BIN OOO1 


1111, BIN GOLLL111 
S940 DATA EIM GOGOOOOO, BIN 11111 
109,BIN L1111160,BIN 11091100,B1 
MN 11G01109,BIN LILIVOLO, BIM 1111 
1000, BIM 11111109 


29 





9942 FOR wW=8 TO 7 
99453 READ S 
9g44 POKE USR "N"+W,S 
9945 NEXT W 
9946 DATA BIN GOGILLIG,BIM G9911 
"1900, BIN G1111G11,BIM GILILLI1G,B 
IN GIGILLOA, BIN QO111199,BIN 911 
G11GG, BIN LIGILIAS 
9947 RETURN 
2399 REM 
931% REM XXX THE WINNING ROUTINE 
9326 REM 
9348 PAUSE 109 
9355 LET e=g 
9356 LET e=e+1 
9368 INK 4: PLOT 9,e: DRAW 255,9 
9365 IF e=199 THEN GO TO 9568 
9367 GO TO 9356 
9368 INK 5: PRINT AT S,9;"N” 
9376 INK 5: PRINT AT 2,125" & 
"FAT é, 115" HO a 
9372 PRINT AT 5,115" HH "SAT 
4,115" A 
9448 BEEP 1,2: BEEP 69.2,12: BEEP 
9.494,12: BEEP 9.494,11: BEEP 9.43,1 
2: BEEP 9.8,11: BEEP 1,7 
9458 PAUSE 39 


v460 BEEP 1,2: BEEP 9.8,12: BEEP 


9.494,12: BEEP 6.494,11: BEEP 9.4,1 
2: BEEP 6.9,14: BEEP 1,11 
9476 PAUSE 39 
9480 BEEF 1,2: BEEP 9.8,12: BEEP 
6.494,12: BEEP 9.4,11: BEEP 9.4,1 
2: BEEP 9.8,11: BEEP 1,7 
9498 PAUSE 29 
“9590 BEEP 0.8,12: BEEP 9.8,7: BE 
EP 9.8,12: BEEP 9.53,11: BEEP 1,1 
1 
9516 LET a=6 
9515 LET a=atl 
9520 IF a=15 THEN GO TO 9559 
9522 INK 5! BEEP 9.93,a: PRINT A 
T Bsas"Nº;AT S,a-lj" " 
95253 FOR b=8 TO 3 STEP -1 
9524 GO TO 9515 
9548 REM 
9549 REM XXXk GO HOME XXX 
9550 REM 
9552 PRINT AT 8,l4p" " 
9555 LET b=8 
9569 LET b=b-1 
9565 PRINT AT Db, 1SP"N'GAT b+1,15 
E] " + 
9570 IF b=6 THEN GO TO 9589 
9575 GO TO 9568 
9589 INK 5! PRINT AT 19,9; "NNNNN 
NNNNNNNNNNNNNNNNNNNNNNNNNNA" AT 





30 


O FORASTEIRO —— 


12,05" BE GOOD !!!! S! 
9585 PRINT AT 12,9; "NNNNNNNNHNNN 


NINNNNNNNNNNNNNNNNNNN" 

9596 PRINT : PRINT 

9592 PRINT INVERSE 1;AT 14,8;"E 
E";AT 15,8; "ABB";AT 16,8; "CD": BE 
EP 9.89,1:. PRINT AT 16,85" "5AT 
EA ja 

9595 PRINT : PRINT " EE DO YOU W 
ANT ANQTHER GQ EE " 

9596 LET Ln=9999: GO TO 599 

9416 REM 

9611 REM XXX THE LOSER ROUTINE + 
9612 REM 

9613 PAUSE 109: PAPER Q: INK 1: 
CLS 

9614 FOR a=9 TO 29 

9615 LET C=INT (RNDX28)+1 

9616 LET b=INT (RNDX18)+1 

S417 PRINT AT b,cs"." 

9618 NEXT à 

S620 FOR a=2 TO 39 

92636 INK 4:-CIRCLE 75,75,a 

S632 NEXT a 

9634 FOR b=g TO 15 

9636 INK 6: CIRCLE 199,75,b 

9638 NEXT b 

9648 FOR c=G TO 19 

9642 INK 5! CIRCLE 139,79,c 

9443 NEXT € 

9659 INK 4: PRINT AT 6,6; INVERS 
E 15" EARTH "; INVERSE 9 

92668 PRINT AT 18,9; INVERSE 15" 
EE EE EE AM I TO STAY HERE FOR 

EVER. YOU MISSED ONCE WITH THE 

PHONE DO YQU WANT ANOTHER G0  « 

y/r)"3 INVERSE 9 

9663 LET Ln=9999: GO TO 599 

9675 CLS : PRINT ) FLASH L;AT 2; 
SF" YOU DONE IT NOW tt!" 

9688 FOR x=46 TO & STEP -2 

9682 PLOT 9,x: DRAW 255,9 

9684 MEXT x 

2486 FOR x=19 TO 25 

9688 BEEP 9.92,x! PRINT AT 15,xj 
"NPJAT 1S;x-lptom 

PéPM NEXT x 

9695 PRINT | FLASH BJAT 4,8)" HE 
HAS STARTED TO SULK.HE WANTS T 

O PHONE HOME BUT HOW CAN HE D 

O. THAT WITH NO PHONE." 


9799 PRINT : PRINT" WILL YOU 
HELP HIM AND START THE GAME A 
GAIN (y/n)" 


927282 PLOT 9,85: DRAW 255,9 
9719 LET Ln=9999: GO TO 599 
9999 STOP 


 BZZZ, BZZ2Z... 


Fred é uma mosca simpática que não pode resistir a 
uma boa gota de mel que escorra da fruta. Infelizmente 
para ela, o lavrador não gosta de moscas e, por causa 
delas, resolveu deitar veneno em todas as macieiras 
do seu pomar. E, assim, a ameaça de morte certa 
paira sobre Fred a menos que você a consiga guiar 
“até outro pomar onde os frutos não apanharam veneno. 
Este é um jogo desenhado por Derek Mearns para o 
16K ZX Spectrum e compete-lhe: a si dirigir os movi- 
mentos da mosca por entre as macieiras e fazê-la 
passar a vedação que separa os dois pomares e que 
se encontra no lado oposto. Este jogo difere dos ha- 
bituais jogos de labirinto dado que os movimentos são 
conseguidos por um «INPUT» no início, em vez de IN- 
KEYS durante o seu desenvolvimento. 
Quando estiver a correr terá uma breve aparição do 
título, seguido do «INPUT» de dificuldade. Isso determina 
o número de maçãs que terá (dezoito vezes o grau 
de dificuldade). 
Aparecerá, então, a sua posição na parte inferior do 
écran e a da vedação no topo. Verá depois «OK!» que 
indica que deve entrar com as suas ordens utilizando 
, as chaves do cursor. Todas as ordens devem ser intro- 
duzidas no. início. 
Por exemplo: se houver uma passagem para o outro 
lado bloqueada por uma maçã, o seu «INPUT» deve ser: 


UTIs 


Se receber informação de que não é necessário parar 
na vedação, poderá calcular o movimento para além 
dela. Não poderá, contudo, calculá-lo para aquém dela. 
Se o labirinto for impossível de franquear, a entrada 
«O» fá-lo-á regressar ao ponto de partida. 


Descrição do programa 


Damos, a seguir, uma breve descrição do programa e 
a lista das variáveis utilizadas. 


10 - 38 Constroi os User Defined Graphics 
e o INPUT de dificuldade 
39 —- 50 Desenha o écran 
60 - 70 Comandos dos INPUT'S 
260  Movimenta a mosca e verifica se passa 
a vedação ou se se esmaga contra ela 
280 - 290 Osesmagamentos da mosca 
320 - 380 Amosca atinge a vedação 
400 Fim da ordem e a mosca não 
chegou à vedação 
1000 - 1020 OQutrojogo? |. 
9000 - 9520 Imprime o título e as instruções 


Ee: 
o 
1 


dif Nível de dificuldade 
xy Coordenadas da mosca 
gs A sua ordem 
n A próxima ordem que se lê em g$. 
FOR... NEXT 
as Mensagens temporárias 
* tg Saltos FOR... NEXT 
1 REM ERRANTE 
*Under linei charactersk 
Xxare entered in x 
X*GRAPHICS mode. x 


; ES II a 
s GO SUB 9aaa 


14 RESTORE 

28 FOR 9=144 TO 147: FOR 4=8 T 
O 7: READ a! POKE USR CHR$ g+f,a 
: MEXT f: MEXT q 

39 DATA 0,6,8,28,62,62,62,28! 
DATA 34,24, 60,99, 153,153, 165, 195 

33 DATA 240,136,69,672,42,69,13 
4,249! DATA 8,255,8,255,9,2,9,9 

35 INK 7: PRINT AT 8,3;"Enter 
Difficulty (1 TO 19)": INPUT dif 
: IF difé1 OR dif>1S THEN GO TO 
af : 

3 LET dit=iiT dia LET dir=as 
4418: PRINT AT 8,35" 

“SAT 1413” 


38 PRINT AT 9,145" 


39 INK 6: PRINT AT 9, 1; "DPDDDD 

ag PAPER 9: INK 47 FOR 4=1 TO. 
dif: PRINT AT INT (RNDX15)+1, INT 

(RNDX30) 41; "A"; NEXT 4 

Se LET x=16! LET y=15: INK 7! 
PRINT AT ló6,14;" B* 

69 INPUT "O.K! "5 LINE 98: IF 
LEN 9&<1 THEN GO TO 48 - 

65 IF 9$="g" THEN GO TO 1 

78 FOR n=1 TO LEN 96: IF 9&tn) 
<>"5” AND 9$(n)<D"6" AND g8(n)<> 
"2" AND 9&(n)<>"B” THEN GO TO é 
g 

8% MEXT n: FOR n=1 TO LEN 9&: 
PRINT AT x,y5"B": PAUSE 29: IF 9 
$(n)="S" THEN GO TO 128 

99 IF g&tn)="4" THEM GO TO té 
à 

129 IF g&in!="7" THEN GO TO 29 
a 

119 IF 9g&(n)="8" THEM GO TO 24 
a 

129 INK 7: IF ATTR (x,y-1)=2 TH. 
EM GO SUB 289: PRINT AT 19,95 F 
LASH 11" YOU FLEM INTO A WALL AN 
D DIED! ": GO TO 389 

138 IF ATTR (x,y-1)=4 THEN 60 
SUB 289: PRINT AT 19,0] FLASH 15 
"YOU ATE A DEADLY APPLE AND DIED 
1º: PAUSE 299: GO TO 398 

199- PRINT AT x,y5" "5 LET ymy-lo 

- 


* BZZZ, BZZZ... 


: BEEP .2,10: MEXT nº: GO TO 499 
169 IF x>14 THEM GO SUB 268: P 
RINT AT 19,85 FLASH 14" YOU FLEW 
INTO A WALL AND DIED! ": PAUSE 
292: GO TO 399 
179 IF ATTR (x+1,7)=4 THEM GO 
SUB Z89: PRINT AT 19,8; FLASH 15 
"YOU ATE 4 DEADLY APPLE AND DIED 
1": PAUSE 2928: GO TO FAg 
182 PRINT AT x,ys” "E LETO4=x01 
BEEP .2,19: MEXT n: GO TO 4gg 
292 IF Xx<2 THEM GO TO 329 
218 IF ATTR (x-1,y)=4 THEN GO 
SUB 289: PRINT AT 19,9; FLASH 15 
"YOU ATE A DEADLY APPLE AND DIED 
tr; PAUSE 299: 60 TO 399 
Z20 PRINT AT x,y3" ME LET x=x-1 
: BEEP .2,19: NEXT n: GO TO 499 
248 IF ATTR (x,y+1)=2 THEM GO 
SUB 289: PRINT AT 19,9; FLASH 15 
" YOU FLEW INTO A WALL AND DIED! 
"1 PAUSE 299: GO TO 399 
259 IF ATTR (x,y+1)=4 THEN GO 
SUB 289: PRINT AT 19,94 FLASH 1; 
"YOU ATE A DEADLY APPLE AND DIED 
1": PAUSE 299: GO TO 399 
260 PRINT AT x,y5" "E LET y=y+1 
: BEEP .2,19: NEXT n: GO TO 499 
288 PRINT AT 4,97" EH EN E 
o RR = z. nam 


285 INK 2! FOR f=6 TO 19: PRINT 
AT EMP MSAT E, 31" DP: MEXT + 
298 INK &: PAPER 3! RETURN 

398 60 TO 1999 


329 PRINT AT 6,25" EO 

E o e mm Em 

m [| |] E mm B 

[=] | |] EH Em 
mm m EEE. 
am E “ ul Es 


CEP e O 

3398 INK 2: FOR 4=6 TO 11: PRINT 

AT E, OI"BrsAT f,319" "2 NEXT + 

349 FOR g=1 TO 2: FOR f=29 TO 4 
9 STEP 3: BEEP .1,f: NEXT f: NEX 


T9 


359 PRINT AT 19,15 INK 25" aaaaa 
AaRaaagaggaganaananaanaaaaa": FOR 
4=1 TO 39: PRINT AT 19,f5 INK 7 
jam(4)9 ºC": PAUSE 15: NEXT f 

36% GO TO 1982 

499 GO SUB 289: PRINT AT 19,95 


32 Ê 





FLASH 15" YOU DID'NT MAKE IT 


1 a 

1998 FOR f=1 TO 599: NEXT + 

1912 INK é: PAPER 8: PRINT AT 19 

s95"Press any key to play again 
"2 IF INKEY$S="" THEN GO TO 

igig 

1929 RUN ' 

9999 PAPER 9: BORDER 9: CLS 

9003 BORDER 9: PAPER 9: CLS : IM 

k 2: FOR £=9 TO 3: PLOT 4,49: DR. 


“AM 9,135: PLOT 9,175-4: DRAW 255 


59: PLOT 255-f£,175: DRAW 9,-135: 
PLOT 255,40+f: DRAW 255,0: MEX 
e 

92894 FOR f=1 TO,4 

Pads INE é ” 
PALA LET af="BUZZ? ALERKAKEERRAA 

*exEXHHRAHAO: FOR n=31 TO 1 STEP 
-1: PRINT AT 1i,njaf&(l TO 31-n): 

MEXT n 

7815 FOR n=1 TO 7: PRINT AT 1,1% 

ag(n TO ): MEXT n 

9917 LET ag=" DEREK MEA 

RHS E o é 
9928 IMK 5: FOR n=39 TO 1 STEP - 
1: PRINT AT 1,n$ag(n): MEXT n 
9925 MEXT + É 

91024 RETUR 

9299 CLS 2 INK 7: PRINT AT 9,95" 

The otject of this game is to 

guide Frei the Fl. (B) around the 
orchard. Unfortunately Farmer 
Brown doesn't like flies and he 
haz poisoned all the apples in 
his orchard.Fred will die unless 
di 

9219 PRINT AT 6,9;";ou can guide 
him into the next orchard where 
the apples are notpoisoned.The 

only way into this orchard is th 
rough the fence at the top(D)" 
9228 PRINT AT 11,90;" To guide 
Fred use the cursor keys BUT you 
must enter your route accros 
s the orhard all at once.The com 

puter will ask you for this wit 

h the prompt "0.kK” a 

9239 PRINT " Pressing any key 

while Fred is moving nill make 

him fly faster.Should it be 
impossible to fly through enter 

ing *24º wvillstart the game again 
” E 

9249 PRINT AT 21,93 INK 6j"Press 
any key to start": IF INKEYS="" 
THEM GO TO 9249 

925% RETURN 


BALOIÇO 


É uma ideia louca! Apanhar uma bala de canhão?! E 
não é só isso! Que está a fazer a bala de canhão? 
Pura e simplesmente a balançar-se no espaço! Inacre- 
ditável! 

Para jogar e pôr em posição o apanhador da bala, 
utilize as chaves do cursor. Mas, cuidado! Um mau 
julgamento da situação pode ser fatal e o baloiçar da 
bala não é regular. Se, em lugar de passar através da 
abertura, a bala vier por aí abaixo, o apanhador será 
destruído! 

Vai dispor de um stock de sete apanhadores para 50 
balas, com os quais poderá estabelecer um novo recor- 
de. 

As principais secções do programa estão claramente 
identificadas por REM's os quais indicam as suas: fun- 
ções. Mas são de interesse, os seguintes comentários: 
As variáveis “d” e “a” conduzem a bala através do 





1 REM JGEPBEBEBBBDHDED EE 
*Underlined characters 
Xare entered in * 
XGRAPHICS mode. * 
“IEBBBBBENDHOEE E EEE 
19 REM XBOUNCE DOWNX by Jack 
Knight 
29 LET h=g 
39 GO TO cggg 
28 REM XMAIN ROUTINEX(NB"GRAPH 
FES"*4D, E) 
199 IF a>31 THEN GO TO 599 
195 PRINT AT d,a;"lº 
118 PRINT AT 17,4+41;” *: PRINT 
AT 18,8;" “z: IF ATTR (17,4)<>49 
THEN PRINT AT 17,45" * 
126 LET 4=f+(INKEYS="8" AND f(<= 
29) -(INKEY$="5" AND 4)=11) 


écran. O baioiçar é obtido pela adição ou subtracção 
de “dd” (e usando um duplo negativo para obter um 
positivo). 

O problema da identificação da abertura azul do apa- 
nhador, do resto do azul do céu, com o fim de contar 
as vezes que a bala é apanhada, foi ultrapassado pela 
impressão de “Y” o qual é invisível porque a cor da 
sua impressão (INK) é a mesma da do céu (e usando 
SCREENS). 

ATTRIBUTE é usado para identificar o apanhador e 
também para garantir que o apagador da bala não 
apague parte do apanhador. 

A variável “i” foi usada como um interruptor para ga- 
rantia de que a bala é apanhada apenas quando se 
balança no sentido descendente e para evitar a destrui- 
ção do apanhador se houver um contaéto directo no 
movimento ascendente. 


139 PRINT ; INK S;AT 17,f;ºYº5;T 
AB f+15 INK 65 ºCº;AT 19,€; INK 6 
; PAPER 3; "ma 

149 IF ATTR (d,a)<>49 THEN PRI 
NT AT d,a;" * 


159 LET d=d+dd: LET a=ataa 
169 IF d=17 THEN GO TO 299 
179 IF d=18 THEN GO TO 399 
189 IF d=14 THEN GO TO 49g 


198 GO TO 199 

299 REM XDECIDES CATCH/LOST CAT 
CHERX(NB” GRAPHICS+D) 

210 IF ATTR (d,a)=46 AND i=1 TH 
EN GO TO 3899 

220 IF SCREENS (d,a)="Y" AND i= 
1 THEN. PRINT AT d,asj"D": BEEP . 
1,9: PRINT AT d,as” ": LET s=s+5 
2 PRINT 5 INK 7; PAPER G;AT 2,95 
S5AT, 1,285j-15" “7: LET j=j-i1: 6 
o TO 2499 

238 G0 TO 198 

399 IF ATTR (d,a)=39 THEN LET 
a=a-i: LET aa=9 

S19 LET dd=-dd 

S29 IF INT (RNDK2+1)=1 THEN LE 
T aa=g 

339 LET i=8 

349 GO TO 199 

499 LET dd=-dd 

419 LET aa=1 

428 LET i=i 

438 GO TO 199 

599 LET j=j-1: PRINT 5 
APER G;AT 1,28;55* a 
EN GO TO 4994 


INK 7; P 
IF j=9 TH 
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519 GO TO 2499 
9998 REM XOPENINGX 


91% BORDER 9: PAPER 5: CLS 
929 PRINT ; INK 15AT 5,75" IF BA 
LL HITS '“TOP-";AT 7,75 “CATCHER DE 
STROYED";AT 12,6;"TO MOVE CATCHE 
R USE";AT 14,115"<- OR ->";AT 16 
165º (AFTER CANNON FIRES)" 
939 FOR a=1 TO 29: BEEP 
EEP .1;29-a: NEXT a: CLS 
& 1998 REM XSETS STAGEX(NB. "GRAPHI 
CS" +A,B,C) 
1199 FOR a=19 TO 21: FOR b=8 TO 
31: PRINT ; INK 4;AT a,bj 
EXT b: NEXT a 
1299 PRINT AT 14,1;"B";TAB 
"STAB 9; "bB";TAB 95 "Bº;TAB 
1399 FOR a=9 TO 2: FOR b=9 
: PRINT 5 INK 9;AT a,b; "Bm 
T b: NEXT a 
1499 PRINT ; INK 7; PAPER G;AT 1 
, 1; "HIGHEST:9"; TAB 15;"CANNON BA 


sl,ã? B 


N 
S; "mm 
B;"gº 
TO 31 
NEX 


,> 


LLS:59"; TAB 1; "SCORE :S"sTAB 15 
5 "CATCHERS Fr dal 
1599 PRINT 5 INK 6;AT 


El, 4 038 fee Diná 
AT 18,14; "EU 

1699 FOR a=1 TO 29: 
: BEEP .1,a: NEXT a 
2909 REM XINITIALISES VARIABLES 
ETCXtNB "GRAPHICS"+D) 

2190 LET s=8 
2209 LET f=14 
2389 LET 9=7 
2359 LET iz=g 
2375 LET ;=59 
2480 LET c=INT 
2599 LET e=INT 
2698 LET d=14+c 
2799 LET dd=1 
2899 LET a=li+e 
* 29909 LET aa=t 
2956 PRINT 5 


BEEP .1,29-a 


(RNDX2+1) 


(RNDK2+1) 


INK Z;AT 14,3; "D"GA 
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T 13 


Es dd 
3999 


3199 
3299 
E 
3399 
” = 
3499 
APER 
3599 
Ei 
369 
assa 
4959 
4199 
4299 
4399 
a498 
4599 
ss9g 
siga 


EW GAME-";AT 7,9j"PRESS 


5299 


»25" BDºGAT 
» 20: 


2,05: 


LET j=j-1 





16,3;"D": BEEP .3 


PRINT AT 14,3;" ";AT 15,25 


SAT: Los 3a"C” 


G0 TO 199 


REM XLOST CATCHERX (NB "“GRA 


PHICS"º+D) 


PRINT AT d,a;"Dº 
FOR a=1i TO 3: BEEP 
NEXT a 

PRINT AT 172,f5" 


.2,5: BE 
“JAT 18,45 


LET g=9-1: PRINT 3 INK 75 
G;AT 2,298; 95AT 1,28;j-15" 


P 


IF 9=8 OR j=9 THEN GO TO 4 
60 TO 2499 

REM XCLOSING% 

FOR b=1 TO 3 

FOR a=7 TO 9 STEP 
BORDER a 

BEEP .1,a 

NEXT a 

NEXT b 

REM XNEW GAMEX 
PRINT 3 INK 15AT 5,9;ºFOR N 
"““ENTER* 


ed 


IF INKEYE=CHRS 13 THEN GO 


TO 54gg 


5399 
5498 
5459 


19595 


GO TO 5299 

IF. s>h THEN LET h=s 

PRINT 5 INK 75 PAPER G;AT 2 
o "JAT 1,28;59;AT 2,28575 





AT 1,9;h 
5596 PRINT AT 172,f;" “SAT 18,E; 
PO Ce AT OS ";AT 7 
93º ai 
5699 G0 TO 2999 
6999 REM XCREATES GRAPHICSX 
6199 LET z=255 
6288 FOR a=i TO 4 
- 6399 READ ag 
6499 FOR b=8 TO 7 
6598 READ c: POKE USR as$+b,c 
6699 NEXT b 
4799 NEXT a 
6899 DATA "A",9,9,9,9,9,9,3,3 
6998 DATA "B",3,3,9,9,0,9,9,9 
7909 DATA "C",252,254,Z,2,2,2,Z, 
Z 
7198 DATA "D",69,126,239,223,223 
32, 126,68 
7288 GO TO 9290 
(1 O Q 
e o LX) o 20 
*0,0*. Po,0º 0,6? 90,0? *o,s* 9, 


“CORRIDA DE COMBOIOS 


e 





Clyde Bish desafia-o a fazer uma corrida com o seu 
comboio, contra o comboio do seu Spectrum. É um 
magnífico programa com o qual poderá praticar a sua 
habilidade para lidar com os horários dos comboios. 
O cenário é uma corrida entre dois comboios que só 
termina no fim da linha. Uma resposta correcta move 
o comboio do jogador, com gráficos e efeitos sonoros. 
Uma resposta incorrecta movimenta o comboio do com- 
putador. 

O programa inclui uma rotina para testar a rapidez 
com que o jogador encontra a chave apropriada e 
permite que não seja penalisada uma reacção lenta 
se o jogador não estiver suficientemente familiarizado 
com as chaves. O tempo limite para cada jogador é 
fixado por um teste no início do programa. 

Quando for pressionado o LOAD aparecerá o título 
“TRAIN RACE” e um comboio fumando e apitando. O 
computador introduzirá o programa, perguntará o nome 
do jogador e explica a ideia que presidiu à sua concep- 
ção, oferecendo uma demonstração de como se joga. 
Depois de verificar o tempo que o jogador leva a localizar 
e accionar a chave correcta (esta informação será usada 
mais tarde para definir o tempo concedido para cada 
jogada, no decorrer do jogo), o computador convida 
o jogador a pressionar uma chave numérica. 

Se a escolha for a correcta, o combolo do jogador 
apita e faz “pouca-terra, pouca-terra” e avança um 
espaço. Se ela for incorrecta será o comboio adversário 
que avançará, O jogo só termina quando um deles 
chegar ao posto de reabastecimento, Se for o do jogador 
a chegar em primeiro lugar, ouvir-se-á um efeito sonoro. 
O resultado final é apresentado ao mesmo tempo que 
um convite para novo Jogo com o mesmo Jogador ou 
outro qualquer, no mesmo ou noutro grau de dificuldade. 


A entrada do programa 


Primeiro faça LOAD e, depois BREAK e NEW (não se 
assustê - apenas obterá com isso o código e SAFE 
do programa). A seguir entre com a listagem mas aten- 
cão que as maiúsculas entre aspas nas linhas 3, 4, 5, 


100, 110, 560 (não a palavra “WRONG"”), 600 (não a 
palavra “CORRECT”) 5000, 5050 e 5080 (não a palavra: 
«CORRECT») são “used-defined graphics” e devem ser 
introduzidas no modo gráfico. 

Para preservar (SAVE) o programa use: 


SAVE “Trainrace” LINE 9999 
SAVE “mc” CODE 32256, 300 


e verifique com: 
“VERIFY” : “VERIFY” “CODE” 


Se tiver uma impressora e quizer uma prova do nome 
do jogador, o nível de dificuldade e o resultado, acres- 
cente a linha: 


1008 LPRINT n$, m' “right”; s, “wrong”; t” 


Linha-a-linha 
1 Faz POKE das maiúsculas, seguido da 
sequência do título. Entretanto constroi 


os gráficos de maneira a não provocar 
uma pausa sensível no decorrer do 


programa 
4-5 Movimenta o combolo nas linhas 
6 Pergunta o nome do jogador 
100 - 110 | Subrotina do desenho do comboio 
200 - 230 Posição do combolo/subrotina da cor 
500 - 720: Programa principal, O computador 


selecciona as perguntas, verifica as 
respostas e produz os gráficos do fumo 
antes de chamar as subrotinas acima 
indicadas 

1000 - 1040 Rotina do final/jogar de novo? 

3000 —- 3100 Subrotina das letras maiúsculas 

5000 - 5090 Instruções e demonstração 

5100 - 5190 Verifica a rapidez de acção sobre as 
chaves e marca o nível de dificuldade 

9000 - 9050 Constroi as “user-defined graphics” 
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I“LL show 
sum Like 


1 REM JECA 
XUnderlined charactersX 
xare entered in x 
XGRAPHICS mede. E 
SIPEC 
3 POKE 226E8,8: PAPER é: BORD 





EP 6! CLS : INK 1: LET xs=5: LET 
ye=8: LET yy=0: LET p$="TRAIN": 
Sn SUR J009: LET yy=190: LET p$ 

="RACE": GO SUR 3999: GO SUB 999 





4 INK 2: FOR n=9 TO 25: PRINT 
AT PanP" MH EMSAT 19,n;" E; 
AT 11,n;" DEED": IF n=G THEN PA 
USE 59 . 

5 PRINT AT Sjnti; INK 5;" A 
": BEEP .91,-29: PRINT AT 8,nt 


CORRIDA DE COMBOIOS 





a 





“ “vz PRINT“AT 9,n+1;" MIBSAT 
JAT B,nt1is INK 55" AB": BEEP .gi 
,-36: NEXT nº: CLS 
& INK 235 LET xs=5: LET ys=19:. 

LET yy=65: LET p$="HELLO": GO 5 
UR Jogo: INPUT INK 1;TAB 5;"Wha 
t's your name?""" TAB 55"Type the 

letters then" TAB 5;"press ENTE 
Rºº"n$g: CLS : GO TO 5900 

189 PRINT AT ws;x3 INK is" mid”; 
AT w+l,x5" e"; ("JELH" AND b$="YOU 
")+("STU" AND DE="MEMNGAT wu+2,x5 
"NOPOR";AT wm+1,31; INK 15"G";AT 


119 INK iz PRINT AT wxit qHa” 
SAT m+l,x5" "Ss INVERSE 1;b&; IN 
VERSE G;AT w+2,x5" DEED"I INK 1: 

PRINT AT w+1,315"G";AT w+2,315" 
E": PRINT "EEEEEEEEEEEEEEEFEEEFE 


EEFEEEEFEEE": BEEP .91,-30: RETU 
290 LET i=2: LET w=1: LET x=t!, 
LET b$&="ME ": RETURN 

2364 LET i=4: LET w=6: LET x=s5: 
LET b$g="vou": RETURN 

590 PAPER 7: BORDER 7: CLS : LE 
T t=0: LET s=t: GO SUB 299: GO S 
UB 119: GO SUB 238: GO SUB 119 
516 LET a=INT (mXRND+1): LET b=" 
INT (RNDX19): PRINT AT 12, 105a;" 
x? = "saxb: PAUSE d+199: LET a 
$=INKEY$: PRINT AT 12, 14;a$ 

550 IF a$=STR$ b THEN GO TO 69 
a 

560 PRINT AT 14,12; FLASH 15"WR 
ONG": LET t=t+1: FOR n=1 TO 2: P 
RINT AT G,t+1; FLASH 9; INK S;"A 
BC": BEEP .5,56: PRINT AT OG, t+15. 
E ": PAUSE 5: NEXT nº GO SUB 2 
Gg: GQ SUB 196: GO TO 709 

696 PRINT AT 14,11; FLASH 15 "CO 
RRECT"!: LET s=st1: FOR n=1 TO 2: 
PRINT AT 5,s+15 FLASH 95 INK 55 
"ABC": BEEP .5,31: PRINT AT 5,5+t 
que ": PAUSE 5: NEXT nº GO SUB 
239:. GO SUB 199 

706 PAUSE 59: PRINT AT 14,105" 

"SAT 125105" E 

710 IF s=Zó OR t=Z26 THEN GO TO 
1096 : 

726 GO TO 519 . 

1094 IF s=26 THEN BORDER 2: BEE 
P .5,9: BORDER 3: BEEP .75,5: BO 
RDER 4: BEEF .25,5: BORDER 5: BE 





EP .5,5: RORDER 6: BEEP .5,9: EO 
RDER 27: BEEP 1,5 
ldgs PAPER é: BORDER 6: CLS : LE 
T xs=2: LET ys=3: LET yy=25: LET 
p$="You Scored": GQ SUR FOHO: P 
RINT AT 19,12;5;" RIGHT";'?" TAB 
12;t;" WRONG" 
1919 PAUSE 208: CLS : LET %s=53: 
LET ys=4: LET yy=59: LET pé="Tha 
nk you": GO SUB JOHA: PAUSE 159: 
INK 2: LET xs=2: LET ys=53: LET 
yy=100: LET pé&="Play again?(Yy/hN) 
": GQ SUB 3909: PAUSE 9 
1020: INK J: LET xs=1» LET ys=2: 
LET yy=135: LET p$="Same Flayer? 
(Y/M)": GO SUR 3FOHA: PAUSE 9: I 
F INKEY$<>"Y" THEN RUN 
1930 LET yy=169: INK O: LET pó=" 
Same tables? (Y/N)": GO SUB Z999 
* PAUSE GQ: IF INKEY$="Y" THEN C 
LS : GO TO 5S9g 
19049 CLS : GQ TO 515g 
SGMO LET xx=(256-8kxs*LEN p$)/2 
3100 LET i=23306: POKE i,xx: POK 
E i+L,yy: POKE i+2,xs: POKE i+3, 
ys: POKE i+4,8: LET i=i+4g: LET w 
=LEN p$: FOR n=1 TO w: POKE itn, 
CODE p$(n): NEXT n: POKE itw+1,2 
55: LET w=USR 32256: RETURN 
5000 PAPER 7:' BORDER 7: LET s=g: 
LET t=s: INK 1: CLS : PRINT AT 
12,90; "Well, ";n$;" we're going""” 
"to race trains - like these": P 
AUSE 290: GO SUR 2990: GO SUB 119 
: 60 SUE 239: GO SUB 118: PAUSE 
Se: FOR n=12 TO 14: PRINT AT n,9 


"4 NEXT nº: PRINT AT 12,9;"I'm 
driving the RED train": PAUSE 29 
8: FOR n=1 TO 2: PRINT AT g,t+2; 

INK 5; "ABC": BEEP .5,36: PRINT 

AT B,t+25" "1 PAUSE 5: NEXT n 
505% PRINT AT 12,9;"vYou're drivi 
ng the GREEN train": PAUSE 280: 
FOR n=1 TO 2! PRINT AT 5,5s+2; IM 
K 5;"ABC": BEEP .5,31: PRINT AT 
S,S+25" "i PAUSE 5: NEXT n 
5955 PRINT AT 12,95" 
5060 PAUSE 59: PRINT AT 19,9;"1º 
11 show you a multiplication""”"s 
um like this one""" TAB 19;"2 x ? 
= 19""""You"11 have to press th 
e number"? "(6 to 9) which goes w 
here the ?"" “is, If you're right 
then your"" "train moves - like 
this" 


CORRIDA DE COMBOIOS 





5070 PAUSE 599: PRINT AT 10,9;" 


no 


"22227 FOR n=1 TO 4: PRINT" 

"1. NE 
XT n 
Sosa PRINT AT 13, 19;"S";AT 15,141 
5 FLASH 1;"CORRECT": LET s=s+1: 
FOR n=1 TO 2: PRINT AT 3,St1j IN 
K 55 FLASH 6; "ABC": BEEP 2 Ss DLS 
PRINT AT S,s+1;" "1 PAUSE 5: M 
EXT n: GO SUR 239: GO SUB 199 
SG9g PRINT AT 18,90;"If you're wr 
Ong, or don't"' "answer then my t 
rain moves": PAUSE 2gg: CLS 
5160 PRINT "Let" practice pressi 
na the"” "numbers": PAUSE 159: PR 
INT "" TAR 13; "Ready!": PAUSE 75: 
CLS : LET d=G: LET as="agste": 
FOR n=i TO S: PRINT '"*TAB 123'"P 
ress ";ag(n): FOR c=1 TO 1999: I 
F INKEy$=ag(n) THEN GO TO s1i2g 
2114 NEXT c 
“128 IF c>d THEN LET d=e 
S139 CLS : PAUSE 25: MEXT n 
S140 CLS : PRINT "OK, we're read 


y to play": RANDOMIZE 

5159 PRINT *"""Press maximum mul 
tiplier(2 to 9)": PAUSE 8: LET m 
$=INKEYS 


5166 LET m=VAL m$&: CLS : GO TO 5 
aa 

Pdega RESTORE :. FOR n=USR "a" TO 
USR "u"+72: READ a: POKE n,a!: MEX 


T nº RETURN 


9050 DATA 69, 126, 255, 255,255,255 
| 127,69,48, 252, 254,255,255,255,2 
55,60,9,9, 120, 252, 252,252, 248,24 
6,2E5, 255, 255,56,62,84,68,56,255 
1255, 255, 1539, 146, 139, 139, 129, 255 
:255,24,24,6,9,9,9,15,297,255,25 
5,297 515,15, 15 
S06A DATA 0,9,9,9,9,6, 15,15,9,9, 
0,9,9,96, 240, 246, 255, 247,251,253 
1254, 254, 254, 255, 255, 220, 187, 123 
251,251,252,255,255,59,219,219, 
219,219,69,255, 249, 208, 208, 298,2 
98,208,48,249,15,15,15,3,4,5,4,3 
1255,255,255,136,73,72,72,135,25 
5,255,255,49,41,49,99,199,255,25 
5,255,35,36,37,36, 1975,249,249, 24 
9, 178,64,64,64,128,255,251,249,2 
59,251,251,251,255,255,216,155,8 
8,219,219,216,255,255,31,255,63, 
255,255,31,255 
9999 CLEAR 52255: LOAD ""CODE 32 
256,399: GO TO 1 
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LAGARTIXAS 


38 


A água é elemento vital da Terra e condição indispensável para a sobrevivência do homem. 
Mas ela corre um grande perigo com a ameaça que extraterrestres fizeram abater sobre a 


Humanidade. 


Temos que tentar, por todos os meios, evitar a tragédia que se desenha no horizonte e repelir 
o ataque das «lagartixas» (assim conhecidas pela cor da sua pele) antes que consigam fazer 
a ligação .das tubagens no solo do nosso planeta. Para se apoderarem do nosso precioso 
líquido não cessam de perfurar a terra, conseguindo, por vezes, subtrair-se à vigilância montada 


pela heróica resistência. 


É isso que não poderemos permitir em circunstância alguma. 


REM LAGARTIJOS 
CLERR 39999 
POKE 23653,8 
DIM A(S): DIM B(3,: 
LET RECORD=O 

SuB 1760 
SUB 1404 


DIM Cí4 


POVONTU Pu 
ui 
tel 
o 
en 
w 
s 


9099969999 9559 


pre 
[Toa 


DO000000! 
Dom 


me 
zm 


“OM 
E 
ODE vongoços 









GnBaspre 


DD 
o 





EN 


188: 


[= 

230 REM MOVIMIENTO MIO 
240 LET Z=PEEK 29560: IF Z=0 TH 
EN LET PASOS=0: GO SUB 7280 
2s0 PRINT AT 1S,HORIZONTAL;" * 
;AT 19,HORIZONTAL; e 
62. IF INKEY$="P” AND HORIZONTA 

N LET DIRECCION=DERECHA: 
ET HORIZONTAL=HORIZONTAL +1: GO 


uB 820 
20 IF INKEY$="0" AND HORIZONTA 
L50 THEN LET DIRECCION=IZQUIERDA 
: LET HORIZONTAL=HORIZONTAL -1: G 
à SUB 884: GO TO 284 

280 PRINT AT 18,HORIZONTAL:C$; A 
T 19,HORIZONTAL:; DS 

290 POKE 23560,0 

300 LET PUNTOS=PUNTOS+AGUA/ 100 : 
LET AGUA=AGUA-HOYOS*S: LET PUNT 
OS=INT PUNTOS: IF AGUA<=0 THEN L 


ET AGUA=0 
BAB" +STR$ (FUNTOS) 
3: PRIN 


s 


310 LET 0g=(" 
Y: LET 0$=08(LEN 05-3 TO 


No) : 
«- 76,255: PRINT AT M+2,B(N); IN 


T AT 21,7;0$;AT 21,20;HOY05: LET 
Q$=("D00" +5STR$ (AGUA)) LET Gá= 
EN 9$-3 TO )»: PRINT AT 21,25 
320 IF RECORD<PUNTOS THEN LET R 
ECORD=PUNTOS: PRINT FLASH 1;AT O 
, 18; RECORD; FLASH O 
O IF INKEY$="0" AND ATTR (2a 

HORIZONTAL) =104 AND ATTR (29 ,HOR 
ZONTAL +1) =104 THEN GO SUB 930 
340 IF AGUA<=0 THEN GO TO 370 
350 NEXT N: GO TO 170 

360 REM APOTEOSIS FINAL 

370 FOR M=0 T 4 STEP 14: FOR 


=0 TO 23 
380 IF PUNTOS>=RECORD THEN BEER 
.1,10: PRINT AT 9,9; FLASH 1; 








ERES UN HERCE “;AT 12,9;" — RECG 
RD EN “;AT 11,9; “:EN PS(PU 
TOs):" PUNTOS *; FLASH Q 

390 PRINT AT O MN: E 

200 PRINT AT M+1,N 

410 PRINT AT M+2.N 

420 PRINT AT M+3,N 

430 PRINT AT M+4,N 

440 PRINT AT M+5.N; 

450 PRINT AT M+6,N; 

460 PRINT AT M47,N; 

470 BEEP .001,N+40: 

+40: BEEP .001,N+30: 

430: NEXT N: NÉXT M 

180 REM ULELVES A 

499 PRINT RO;" ME E R 
ESISTENCIA: ES VOL 
DER? S/Nº: Go SUB 720: E 235 

Sã LET Z=PEEK 23550: IF Z=0 TH 
EN G0 TO 50 : 

S10 IF Z=78 THEN GO TO sde 

S20 IF Z<>83 THEN GU TO 500 

530 LET z8=" VALIENTE”: LET FI 
N=0: GO TO 550 

Sá LET 2$="COBARDICA”: LET FIN 


rd BEEP .01, INT 


s8o0 REM RA AGUA EXTRA 





600 PRINT AT 9,5; !!AQUI LA RES 
ISTENCIA!!“; AT 10,2; NOS COMPLAC 
EMOS EN RECOMPEN- SARTE CON 

FLASH 1; "200 UNIDADES EXTRAS"; 
FLASH 0; DE AGUA": P 
AUSE 2SQ: LET AGUA=AGUA+2aA 

610 LET HOYOS=0: CLS : GO TO 12 


9 


620 REM CAPTURA DE TERRESTRE 
&30 FOR M4=15 TO 1 STEP -1: POKE 
23675,64: POKE 23676,156: PRINT 
AT M,B(N); INK 6; 0 SISAT O M+1, 
st": POKE 23675,88: POKE É 
3 


:CS;AT M+3,B(N);D$;AT M+4,B CN); 


ee 








LAGARTIXAS 7 





“: BEEP .001,N: BEEP .201,N: BE : LET D$=" A" 

















EP ,50h6N;nBESP «BOI,N: NEXT M . 968 IE PASOS=2 THEN LET Cs=" 4 
ds REM ESCRITURA DE INSTRUCCIO aiQ LET PASOS=PASOS+1: IF PASOS 
5 
660 X=1 po LEN VS TESTES RE O E 
sa RR a Ene Do So 830 LET HOYOS=HOVOS-1: PRINT AT 
670 RENT o ;ê BEEP «02,12 E a x 
6sa NES x 28, HORIZONTAL; -— BEEP .01,0: 
Ba8 PAUSE 100 BEÉP .01,5: BEER, 01,15, PRINT 
508 RETURN ab SBpuBRidaniat! uai Decir, 
+ 118 REM MENSAJE DE LA RESISTENC sisal dpeogaTgantão: emo BEEE o 
720 FOR M=1 TO S. FOR N=1 TO 15 Serras I “BaréR SBT 56 HOR 
: BSEPcOL,10. NEXT Nº PAUSE 48: tzoNTNL; FO? 
Dão REM MENSQUE 940 FOR M=17 TO 1 STEP -1: IF A 
740 CLS : LET xs=3: LET y£=6: L TTR (M. HORIZONTAL) (565 THEN PRIN 
EL UESB. SO SUB 960 T AT M,HORIZONTAL;" “: NEXT M 
750 PRUSE 102 asa RÉTURN 
259 IF FINSO THEN RETURN 960 REM CARATULA 
s = 
780 REM RUTINA DE MI PARADA aS6,0. ORA 68: DEEU DaAUS  oBE O 
226 1E BIRECCION=DERECHA THEN 6 886 LET x x=(as5- BaxEaLEN 26) /8. 
iz E ER: 
220 IF DIRECCION=IZOUTERDA THEN E RE VEr «POE isoxe: POKE 143, 
Bio RETURN MS PORE. EH | 
820 REM RUTINA Pasos 1202 LET izi+á LET w=LEM Zs: FO 
830 IE PASOS=0 THEN LET Cg=" 4" Rana ço w: FOKE i+n,CODE Zn): 
: LET EXT n E 
"e" 1910 POKE i+0+1,25S LET u=LIZR & 
a4B IÊ PASOS=1 THEN LET C&=" 8 a888 CREruáv IDE 
Er E Ensps- ORE CE josa BORDER O: PAPER Q: INK 7: & 
so RIGHT À 
“256 LE? pÉSOS =pasos+1 id ide 1940 CLS : PRINT FLASH 1; INK E; 
8720 RETURN FAPER G;AT Q q EEE EUELEVE 
&s02 IF PASOS=Q THEN LET Cg=" 4" “ JE EUEE DE 
: LET D$=" 7" 1950 FAFER O: INK 4 
892 IF PASQS=1 THEN LET Cg=" 42" 1960 PRINT AT 1,2; "TEN .. CE 
EF .2a1.,50 PRINT " “ BEEF 
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AMSTRAD COMPUTER CLUB 


PRACETA DR. NUNO PINHEIRO TORRES, 4-A (Benfica) 
Ê Hot-Line: 714 31 59 1500 LISBOA 
— PODERÁ VOCÊ SER MEMBRO DO NOSSO CLUB? 
— Consulte-nos! Telef. 714 31 59 


— Temos toda a gama Amstrad em computadores, periféricos, interfaces, software, 
4 livros, revistas, cursos, a preços exclusivos para os membros do Club. 
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“0 










. 001,50: PR 

EF 001,50: 

. 001,50: : 

221.52 . 

1070 PRINT AT &; BEEP 
.0201,50: PRIN EP el 


21,50 PRINT 


e cus PRINT “HP. BEEP .0o1., 












a. 

10 

«201 

1,5 E 

a: BEEP .2001,50: 

PRINT ; 

1120 

«201 

1,50: 

qu RE 

1110 7 

1120 PRUSE 100 

1150 RETURN a 

1140 REM INSTRUCCIONES 

1152 BORDER Q: PAPER Q: CLS IN 

E 7: BRIGHT 1 

1150 PRINT Bl. "QUIERES LAS INSTR 

u Ia S/Nº: PORE 23560,0 

pu a 23SEQ. IF Z=Q TH 

E 

pa PSA 3 “THEN CL5 Go TO 12 

3 

11 »83 THEN 50 TO 1170 

1 LET Y$=" SALVA LA RES 

E AGUR DE LA TIERRA DEL AT 

A » NAVES ESPACIALES ql 

E EXTE-RIOR. 
TU HISION ES 
DR LOS QUE P 

RA SACAR EL 

SI LAS NAVES 





CLAS"; 
; OUER 8; A 
FLASH B.: 
FLASH 15 *p” 
FPERECHA:; AT 15,4; 
LASH : TAP 





SH ; A Lo 
s AGUJEROS" : PAUSE Loo 
1220 PRINT AT 16,0. LET Y$=" SI 
UNA NAVE ATERRIZA SOBRE TI; TE € 
OGE Y TE LLEVA. EST 
ATE ATENTO A LOS MENSAJES DELA R 
ESISTENCIA.'": GO SUB 560 


1230 PRINT. ado TU NIVEL 
S)": POKE 235620,0 


1240 LET Pee E 23560-458: IF; 
aneis 1 OR NIVEL>S THEN GO TO 1 


1250 RETURN 


1260 REM IN IZACIQON 
1270 FOR N= 4: LET ACM) =INT 
(ND =E CN) NEXT NM 


, 
GET B (81-15. L 


1310 LET HOVOS= [7] 
0 LET paso 15 
HASTA=0 


CET PASnS E [a 


2 

(] 

2 LET DERECHA=O 

Q LET IZQUIERDA=1 

o CION=Q 

o LET Dg=" 1" 
a 
o 


TUR 
REM PRESENTACION 
10 LET z$="LAGARTIJOS": LET xs 
LET ys=4: LET uy=40 
20 Go Sus seo 
30 nas z$="0 LA dada DE LAS ES 
EL e LES: Hed LET ys=2: LE 





y =o 

438780 sus 960 
450 LET 28=/1985": LET yy=116 
460 GO sUB 960 

1470 PAUSE 100 É 
1480 RET 

1490 REM CEUNCIONES DEFINIDAS 
1500 DEF FN P$(Y) =CHR$ 15+CHRS 1 


LAGARTIXAS 





"igado gens, É O+CHR$ 16+CHR$ 7+4C 

HR5 Gaia alas +("BOB"+STR$ Y) (LEN 
STR$ TO, 2 

1510 TURN 


1520 ses arrricos DEFINIDOS 


1530 REM YO 

1549 RESTORE 1560 

1550 =6 TO 63: READ A: POKE 
USA CACANÇA: NEXTN 

1560 DATA 0,1,3,3,3,1,3,3:0,125, 
64,224,192,128,192,64,3,3,1.1,1, 
1,1,1,64,64,125,128,128,126,126, 
162,0,1,2,7,3,1,3,2,0,128,192,18 
2,192,128,192,192,2,2,1,1,1,1,1, 
2,158, 152, 126,126,126,128, 128,12 
1570 REM YO 2 

1580 FOR N=9 TO 31: READ A: POKE 

SR “IC4N,A: NEXT N. 

1590 DATA 6,9,1,1,1,3,4,4,192,64 
, 128,64 ,32,82,48,0,8,2, 1,8 ,4,4, 

$,0,96,192,128,128,128,192,32,32 
1600 REM YO 3º 

1810 FOR N=0 TO 47: READ A: POKE 
USR “Mº4N,A: NEXT N 

1620 DATA 0,1,3,3,3,1,3.2,2,2,10 
,15,9,1,1,224,192,125,64,128,0, 

8,158,6,158 198 198,198,158, 105, 

64,7,9,1,2,1,0,0,1,64,64,126,128 
540144158) 128 

1630 REM HOYÓ 1 

1640 FOR N=0 TO 7: READ A: POKE 

USR “S"4N,A: NEXT N 

1650 DATA 0,0,0,255,255,255,0,0 

1659 REM HOYO 2 


TO 7: READ A: POKE 
USR “TU+N,A: NEXT N 
Yêso DATA 2,0,255,255,25S5,E5S,2S 


1692 REM NAVE , 
1700 FOR plo TO 31: READ A: POKE 
420000+N,R: NEXT MN 

1710 DATA 3,3,7,7,30,30,54,54,31 
,81,517,17, 34,34,208, 2as;, 128, 128, 


nel Edo 240,240,216,216,240,240, 
136,22, 


o 


RP qr 
OLONT - SRP 
Rs 


999659 w- nono 


QN RUI- 


vw 


DN neeEM 


..0 e 
e) 


Pr O Pode 


“DD 


uu- 


VRNRE PERA 
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“um SPP 
vSSY- MS 

pre 
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per 
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env Nm 
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PeO PI 
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-09 
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we - 
pera 


DRAMA Do 
VROVN- DO 
Vo =p - 
O UNRRPR 


págs pes 
Poder AD aDçI0o 


De - MOMO 
e Jg 
Pe GODU- 1 
S9U- NIANVES 
GR Qu 
“em Me Me 
PROG 


ua 
Parra 
ovo CONPAMEM- 


mor 
Ee 
Jo 


em - 


SE «0» 


03,29 

iêso DATA a SR as 
2,166,176,119,58,7,91,71, 
46,64,103,120,31,31,31,23 


1900 DATA 103, 120,23,23,2 
RR E de UE TRC 
4 


su 
po 


nes Req 
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no pre 
D NONGM 
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